PC Extra 10/PC Extra 10.iso/win95/timeezy/TIMEEZY.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1997-09-09 | 21KB | 867 lines

object MainForm: TMainForm
  Left = 118
  Top = 84
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TimeEzy'
  ClientHeight = 351
  ClientWidth = 628
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu
  PopupMenu = MapPopupMenu
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MapPanel: TPanel
    Left = 0
    Top = 0
    Width = 445
    Height = 351
    Align = alLeft
    BevelWidth = 2
    BorderWidth = 2
    TabOrder = 0
    OnEnter = MapPanelEnter
    object MapPaintBox: TPaintBox
      Left = 4
      Top = 56
      Width = 437
      Height = 291
      Hint =
        'Click to lock/unlock. Right click to add, edit or delete cities.' +
        ' '
      Align = alBottom
      OnClick = MapPaintBoxClick
      OnMouseMove = MapPaintBoxMouseMove
      OnPaint = MapPaintBoxPaint
    end
    object InfoPanel: TPanel
      Left = 4
      Top = 4
      Width = 437
      Height = 51
      Align = alTop
      Alignment = taLeftJustify
      Font.Color = clInactiveCaption
      Font.Height = -28
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      TabOrder = 0
      OnMouseMove = PanelMouseMove
      object LocationLabel: TLabel
        Left = 4
        Top = 2
        Width = 28
        Height = 17
        Hint = 'Select by moving cursor over map, or using arrow keys.'
        Caption = 'City'
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnMouseMove = PanelMouseMove
      end
      object SearchLabel: TLabel
        Left = 4
        Top = 26
        Width = 49
        Height = 17
        Caption = '&Search'
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnMouseMove = PanelMouseMove
      end
      object DayLabel: TLabel
        Left = 245
        Top = 24
        Width = 27
        Height = 17
        Caption = 'Day'
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnMouseMove = PanelMouseMove
      end
      object MonthLabel: TLabel
        Left = 328
        Top = 24
        Width = 45
        Height = 17
        Caption = 'Month'
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        OnMouseMove = PanelMouseMove
      end
      object LocationValLabel: TLabel
        Left = 40
        Top = 3
        Width = 381
        Height = 16
        AutoSize = False
        Caption = 'xxx'
        Font.Color = clInfoText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        OnMouseMove = PanelMouseMove
      end
      object SearchEdit: TEdit
        Left = 56
        Top = 22
        Width = 125
        Height = 25
        Hint = 'Type some characters, to search all city info. <Ctrl> S'
        Color = clInfoBk
        Font.Color = clInfoText
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        Text = 'xxx'
        OnChange = SearchEditChange
        OnMouseMove = EditMouseMove
      end
      object DayEdit: TEdit
        Left = 276
        Top = 20
        Width = 29
        Height = 26
        Hint = 'Time diff. can change according to date, due to Daylight Saving'
        AutoSize = False
        Color = clInfoBk
        Font.Color = clInfoText
        Font.Height = -16
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 2
        ParentFont = False
        TabOrder = 2
        Text = '1'
        OnChange = DateEditChange
        OnKeyPress = EditKeyPress
        OnKeyUp = EditKeyUp
        OnMouseMove = EditMouseMove
      end
      object MonthEdit: TEdit
        Left = 376
        Top = 20
        Width = 37
        Height = 26
        Hint = 'Time diff. can change according to date, due to Daylight Saving'
        Color = clInfoBk
        Font.Color = clInfoText
        Font.Height = -16
        Font.Name = 'Courier New'
        Font.Style = []
        MaxLength = 3
        ParentFont = False
        TabOrder = 3
        Text = '1'
        OnChange = DateEditChange
        OnKeyPress = MonthEditKeyPress
        OnKeyUp = EditKeyUp
        OnMouseMove = EditMouseMove
      end
      object SearchButton: TButton
        Left = 184
        Top = 22
        Width = 49
        Height = 23
        Hint = 'Search for next occurrence. <Ctrl> N'
        Caption = '&Next'
        Enabled = False
        Font.Color = clInactiveCaption
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
        TabOrder = 1
        TabStop = False
        OnClick = SearchButtonClick
        OnMouseDown = ButtonMouseDown
        OnMouseMove = PanelMouseMove
        OnMouseUp = ButtonMouseUp
      end
      object DayUpDown: TUpDown
        Left = 305
        Top = 20
        Width = 13
        Height = 26
        Hint = 'Hold down, to change quickly'
        ArrowKeys = False
        Min = 1
        Max = 31
        Position = 31
        TabOrder = 4
        Wrap = False
        OnClick = DateUpDownClick
        OnMouseDown = ButtonMouseDown
        OnMouseMove = PanelMouseMove
        OnMouseUp = ButtonMouseUp
      end
      object MonthUpDown: TUpDown
        Left = 413
        Top = 20
        Width = 13
        Height = 26
        Hint = 'Hold down, to change quickly'
        ArrowKeys = False
        Min = 1
        Max = 12
        Position = 12
        TabOrder = 5
        Wrap = False
        OnClick = DateUpDownClick
        OnMouseDown = ButtonMouseDown
        OnMouseMove = PanelMouseMove
        OnMouseUp = ButtonMouseUp
      end
    end
    object CloseBitBtn: TBitBtn
      Left = 8
      Top = 316
      Width = 65
      Height = 27
      Hint = 'Close down TimeEzy. <Ctrl> C'
      TabOrder = 1
      TabStop = False
      OnClick = CloseBitBtnClick
      Kind = bkClose
    end
  end
  object HereClockPanel: TPanel
    Left = 444
    Top = 0
    Width = 181
    Height = 175
    BevelWidth = 6
    TabOrder = 1
    OnEnter = ClockPanelEnter
    OnMouseMove = PanelMouseMove
    object HereBevel: TBevel
      Left = 12
      Top = 46
      Width = 157
      Height = 99
    end
    object HereLabel: TLabel
      Left = 8
      Top = 14
      Width = 165
      Height = 27
      Hint = 'Time at your '#39'home base'#39' city. <Ctrl> H'
      Alignment = taCenter
      AutoSize = False
      Caption = '------ &Here -------'
      Font.Color = clInactiveCaption
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      OnMouseMove = PanelMouseMove
    end
    object HereDaySavLabel: TLabel
      Left = 12
      Top = 150
      Width = 155
      Height = 17
      Caption = '* Daylight Savings Time'
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Visible = False
      OnMouseMove = PanelMouseMove
    end
    object HereDOWLabel: TLabel
      Left = 16
      Top = 125
      Width = 37
      Height = 17
      Caption = 'Today'
      Font.Color = clInfoText
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      OnMouseMove = PanelMouseMove
    end
    object HereHrsUpDown: TUpDown
      Left = 45
      Top = 97
      Width = 18
      Height = 26
      Hint = 'Hold down, to change quickly'
      ArrowKeys = False
      Min = 1
      Max = 12
      Position = 1
      TabOrder = 9
      Wrap = False
      OnClick = UpDownClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton2: TButton
      Tag = 900
      Left = 17
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = '9am'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton1: TButton
      Tag = 600
      Left = 17
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = '6am'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton3: TButton
      Tag = 1200
      Left = 67
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = '12pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton5: TButton
      Tag = 1800
      Left = 117
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = '6pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton4: TButton
      Tag = 1500
      Left = 117
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = '3pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereButton0: TButton
      Tag = -1
      Left = 67
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set Here clock'
      Caption = 'Now'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      TabStop = False
      OnClick = HereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereHrsEdit: TEdit
      Left = 16
      Top = 96
      Width = 31
      Height = 29
      Hint = 'Hours'
      AutoSize = False
      Color = clInfoBk
      Font.Color = clInfoText
      Font.Height = -24
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 0
      Text = '24'
      OnChange = EditChange
      OnKeyPress = EditKeyPress
      OnKeyUp = EditKeyUp
      OnMouseMove = EditMouseMove
    end
    object HereMinsEdit: TEdit
      Left = 66
      Top = 96
      Width = 31
      Height = 29
      Hint = 'Minutes'
      AutoSize = False
      Color = clInfoBk
      Font.Color = clInfoText
      Font.Height = -23
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 1
      Text = '15'
      OnChange = EditChange
      OnKeyPress = EditKeyPress
      OnKeyUp = EditKeyUp
      OnMouseMove = EditMouseMove
    end
    object HereAMPMButton: TButton
      Left = 117
      Top = 96
      Width = 46
      Height = 28
      Hint = 'Click to change. <Ctrl> M'
      Caption = 'a&m'
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      TabStop = False
      OnClick = AMPMButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object HereMinsUpDown: TUpDown
      Left = 95
      Top = 97
      Width = 18
      Height = 26
      Hint = 'Hold down, to change quickly'
      ArrowKeys = False
      Min = 0
      Max = 59
      Position = 0
      TabOrder = 10
      Wrap = False
      OnClick = UpDownClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
  end
  object ThereClockPanel: TPanel
    Left = 444
    Top = 176
    Width = 181
    Height = 175
    BevelWidth = 6
    TabOrder = 2
    OnEnter = ClockPanelEnter
    OnMouseMove = PanelMouseMove
    object ThereBevel: TBevel
      Left = 12
      Top = 46
      Width = 157
      Height = 99
    end
    object ThereLabel: TLabel
      Left = 8
      Top = 14
      Width = 165
      Height = 27
      Hint = 'Time at another city. <Ctrl> T'
      Alignment = taCenter
      AutoSize = False
      Caption = '----- &There -------'
      Font.Color = clInactiveCaption
      Font.Height = -21
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      OnMouseMove = PanelMouseMove
    end
    object ThereDaySavLabel: TLabel
      Left = 12
      Top = 150
      Width = 155
      Height = 17
      Caption = '* Daylight Savings Time'
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      Visible = False
      OnMouseMove = PanelMouseMove
    end
    object ThereDOWLabel: TLabel
      Left = 16
      Top = 125
      Width = 37
      Height = 17
      Caption = 'Today'
      Color = clBtnFace
      Font.Color = clInfoText
      Font.Height = -15
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      OnMouseMove = PanelMouseMove
    end
    object ThereHrsUpDown: TUpDown
      Left = 45
      Top = 97
      Width = 18
      Height = 26
      Hint = 'Hold down, to change quickly'
      ArrowKeys = False
      Min = 1
      Max = 12
      Position = 1
      TabOrder = 9
      Wrap = False
      OnClick = UpDownClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton2: TButton
      Tag = 900
      Left = 17
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = '9am'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton1: TButton
      Tag = 600
      Left = 17
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = '6am'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton3: TButton
      Tag = 1200
      Left = 67
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = '12pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton5: TButton
      Tag = 1800
      Left = 117
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = '6pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton4: TButton
      Tag = 1500
      Left = 117
      Top = 52
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = '3pm'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereButton0: TButton
      Tag = -1
      Left = 67
      Top = 74
      Width = 46
      Height = 20
      Hint = 'Click me to set There clock'
      Caption = 'Now'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      TabStop = False
      OnClick = ThereButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereHrsEdit: TEdit
      Left = 16
      Top = 96
      Width = 31
      Height = 29
      Hint = 'Hours'
      AutoSize = False
      Color = clInfoBk
      Font.Color = clInfoText
      Font.Height = -24
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 0
      Text = '24'
      OnChange = EditChange
      OnKeyPress = EditKeyPress
      OnKeyUp = EditKeyUp
      OnMouseMove = EditMouseMove
    end
    object ThereMinsEdit: TEdit
      Left = 66
      Top = 96
      Width = 31
      Height = 29
      Hint = 'Minutes'
      AutoSize = False
      Color = clInfoBk
      Font.Color = clInfoText
      Font.Height = -23
      Font.Name = 'Times New Roman'
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 1
      Text = '15'
      OnChange = EditChange
      OnKeyPress = EditKeyPress
      OnKeyUp = EditKeyUp
      OnMouseMove = EditMouseMove
    end
    object ThereAMPMButton: TButton
      Left = 117
      Top = 96
      Width = 46
      Height = 28
      Hint = 'Click to change. <Ctrl> M'
      Caption = 'a&m'
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      TabStop = False
      OnClick = AMPMButtonClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
    object ThereMinsUpDown: TUpDown
      Left = 95
      Top = 97
      Width = 18
      Height = 26
      Hint = 'Hold down, to change quickly'
      ArrowKeys = False
      Min = 0
      Max = 59
      Position = 0
      TabOrder = 10
      Wrap = False
      OnClick = UpDownClick
      OnMouseDown = ButtonMouseDown
      OnMouseMove = PanelMouseMove
      OnMouseUp = ButtonMouseUp
    end
  end
  object MainMenu: TMainMenu
    Left = 8
    Top = 272
    object OptionsMenu: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object HintsItm: TMenuItem
        Caption = '&Hints'
        ShortCut = 0
        OnClick = HintsItmClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object IndexItm: TMenuItem
        Caption = '&Index'
        ShortCut = 0
        OnClick = IndexItmClick
      end
      object AboutItm: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = AboutItmClick
      end
    end
    object OrderItm: TMenuItem
      Caption = 'O&rder'
      ShortCut = 0
      Visible = False
      OnClick = OrderItmClick
    end
  end
  object MapPopupMenu: TPopupMenu
    Left = 40
    Top = 272
    object AddCityItm: TMenuItem
      Caption = '&Add City'
      ShortCut = 16449
      OnClick = AddCityItmClick
    end
    object EditCityItm: TMenuItem
      Caption = '&Edit City'
      ShortCut = 16453
      OnClick = EditCityItmClick
    end
    object DeleteCityItm: TMenuItem
      Caption = '&Delete City'
      ShortCut = 16452
      OnClick = DeleteCityItmClick
    end
    object HomeCityItm: TMenuItem
      Caption = 'Home &Base'
      ShortCut = 16450
      OnClick = HomeCityItmClick
    end
  end
  object ClockTimer: TTimer
    OnTimer = ClockTimerTimer
    Left = 76
    Top = 272
  end
end